home *** CD-ROM | disk | FTP | other *** search
/ NASA Climatology Interdisciplinary Data Collection / NASA Climatology Interdisciplinary Data Collection - Disc 4.iso / software / grads / lib / functions / int.gf < prev    next >
Text File  |  1994-02-16  |  145b  |  12 lines
  1. function int(i0)
  2.   i=0
  3.   while(i<12)
  4.     i=i+1
  5.     if(substr(i0,i,1)='.')
  6.       i0=substr(i0,1,i-1)
  7.       break
  8.     endif
  9.   endwhile
  10. return(i0)
  11.  
  12.